{$CLEO .cs}
0000: 
 
WHILE TRUE
    WAIT 0
    IF AND
        0256:   PLAYER $PLAYER_CHAR DEFINED
        056D:   ACTOR $PLAYER_ACTOR DEFINED
        8118:   NOT ACTOR $PLAYER_ACTOR DEAD
    THEN
        IF
            0ADC:   "CAD1"
        THEN
            0AD1: "Teleporting to spot A" 500
            IF
                80DF:   NOT ACTOR $PLAYER_ACTOR DRIVING
            THEN
                0AB1: CLEO_CALL @TP 5 $PLAYER_ACTOR -1332.663086 -1072.319946 678.412323 26.201851
            ELSE
                0AB1: CLEO_CALL @TP 5 $PLAYER_ACTOR -1346.813599 -1020.432434 677.735291 254.555939
            END
        END
        IF
            0ADC:   "CAD2"
        THEN
            0AD1: "Teleporting to spot B" 500
            IF
                80DF:   NOT ACTOR $PLAYER_ACTOR DRIVING
            THEN
                0AB1: CLEO_CALL @TP 5 $PLAYER_ACTOR -1082.429565 -936.951660 741.140869 338.184753
            ELSE
                0AB1: CLEO_CALL @TP 5 $PLAYER_ACTOR -1073.238892 -917.932800 740.800201 209.108032
            END
        END
        IF
            0ADC:   "CAD3"
        THEN                                                                                                             
            0AD1: "Teleporting to spot C" 500
            IF
                80DF:   NOT ACTOR $PLAYER_ACTOR DRIVING
            THEN
                0AB1: CLEO_CALL @TP 5 $PLAYER_ACTOR 341.790527 147.382019 776.644684 116.023270
            ELSE
                0AB1: CLEO_CALL @TP 5 $PLAYER_ACTOR 319.917877 162.971878 776.283112 225.151550
            END
        END
        IF
            0ADC:   "CAD4"
        THEN
            0AD1: "Teleporting to spot D" 500
            IF
                80DF:   NOT ACTOR $PLAYER_ACTOR DRIVING
            THEN
                0AB1: CLEO_CALL @TP 5 $PLAYER_ACTOR 586.343201 937.170105 552.750122 86.568665
            ELSE
                0AB1: CLEO_CALL @TP 5 $PLAYER_ACTOR 585.896118 938.925476 552.393875 86.476730
            END
        END
        IF
            0ADC:   "CAD5"
        THEN
            0AD1: "Teleporting to spot E" 500
            IF
                80DF:   NOT ACTOR $PLAYER_ACTOR DRIVING
            THEN
                0AB1: CLEO_CALL @TP 5 $PLAYER_ACTOR 2037.007690 534.365112 385.627918 75.618317
            ELSE
                0AB1: CLEO_CALL @TP 5 $PLAYER_ACTOR 2017.722900 567.859192 385.572823 130.036819
            END
        END
    END    
END

:TP
IF AND
    056D:   ACTOR 0@ DEFINED
    8118:   NOT ACTOR 0@ DEAD
THEN
    IF
        80DF:   NOT ACTOR $PLAYER_ACTOR DRIVING
    THEN
        00A1: PUT_ACTOR $PLAYER_ACTOR AT 1@ 2@ 3@
        0173: SET_ACTOR $PLAYER_ACTOR Z_ANGLE_TO 4@
        0373: SET_CAMERA_DIRECTLY_BEHIND_PLAYER
    ELSE
        03C0: 10@ = ACTOR $PLAYER_ACTOR CAR
        IF AND
            056E:   CAR 10@ DEFINED
            8119:   NOT CAR 10@ WRECKED
        THEN
            00AB: PUT_CAR 10@ AT 1@ 2@ 3@
            0175: SET_CAR 10@ Z_ANGLE_TO 4@
            0373: SET_CAMERA_DIRECTLY_BEHIND_PLAYER
        END
    END
END    
0AB2: CLEO_RETURN 0
